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«NLIST 
; “TRIS TSTSDTPREFIX = PREFIX MODULE FOR DTS/DTR 
; IDENT ‘*Vv04-000 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
ONLY IN ACCORDANCE WITH THE TERMS OF (SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1° HEREBY 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT + 
CORPORATION. * 
* 
® 
® 
® 
* 
* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


. . . . . . . . . . . . . 
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jeeeeeeeeeeeneereeeeneneeseneneenceeeseenuenensensquneeteeereenereresesetes 
p++ 

> FACILITY: DTS/DTR DECNET TEST PACKAGE 

ABSTRACT: PREFIX ASSEMBLY MODULE FOR DTS/DTR. 

ENVIRONMENT: DTS/DTR RUN IN USER MODE AND REQUIRE NETWORK PRIVILEGE. 
AUTHOR: JAMES A. KRYCKA, CREATION DATE: 23-JAN-78 

MODIFICATIONS: 


3 


~SBTTL DECLARATIONS 


; INCLUDE FILES: 
; -LIBRARY \LI8D$:CDTSDTR.OBJIDTSDTR.MLB\ 
MACROS: 
NONE 
; EQUATED SYMBOLS: 
k _LIST_MEB=0 ; «LIST MEB OPTION: 1=YES; O=NO 


+] | STSDTMACROS = MACRO DEFINITIONS FOR DTS/DTR 


IT 
DEN ry04~000" 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* 
® 
® 
* 
t 

PI * 
SUCH LICENSE AND WITH THE * 
T NOTICE. SOFTWARE OR ANY OTHE * 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

TRANSFERRED. * 

* 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

CORPORATION. * 

* 
& 
® 
* 
e 
* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: DTS/DTR DECNET TEST PACKAGE 

ABSTRACT: MACRO DEFINITIONS USED BY DTS/DTR MODULES. 

ENVIRONMENT: DTS/DTR RUN IN USER MODE AND REQUIRE NETWORK PRIVILEGE. 
AUTHOR: JAMES A. KRYCKA, CREATION DATE: 11-AUG-77 
MODIFICATIONS: 


BeBe Se Se Se Ge Se Ge Be Se Se Se 


<-— 


~SBTTL CODE GENERATION MACROS 


ig 


; QBLOCK GENERATES A QUADWORD DESCRIPTOR BLOCK FOLLOWED BY THE 
; CHARACTER STRING AND/OR ALLOCATED SPACE. 


-MACRO QBLOCK TEXT,SPACE=0,BUFADR, ?7LABEL1, ?LABEL2 
LONG LABEL@-LABEL { 


LONG 
.IF NB BUFADR 

BUF ADR==. 

LABEL1: 
.IRP ss STR, <TEXT> 
“ASCII \STRN 
-ENDR 


-IF NE SPACE 
~BLKB SPACE 
NDC 


LABEL2: 
.ENDM QBLOCK 

+ 

SSB SETS A SINGLE BIT IN A FIELD. 
.MACRO SSB POS BASE, ?DISPL 
BBSS § POS,BASE,DISPL 
.ENDM SSB 


DISPL: 


p++ 
; CSB CLEARS A SINGLE BIT IN A FIELD. 


-MACRO CSB POS ,BASE , ?DISPL 


POS ,BASE ,DISPL 
DISPL: 
-ENDM CSB 
F ILLBUF FILLS A BUFFER WITH A SPECIFIED CHARACTER. ON COMPLETION 
; R3 CONTAINS THE ADDRESS OF om BYTE BEYOND THE FILLED BUFFER fi 
3; THAT THIS MACRO USES sg MOVC5 INSTRUCTION WHICH DESTROYES RO - R5! 
> THE DEFAULT IS TO ZERO 512 BYTES (1 PAGE) AT THE SPECIFIED ADDRESS. 


.MACRO FILLBUF DST=,$12E=#512, CHAR=#*X00 
MOVCS 7 »SIZE,DST 
.ENDM = FILLBUF 


— 


et SS BRANCHES TO A SUBROUTINE THAT CHECKS THE STATUS CODE IN RO 


3: FOLLOBING A CALL TO A SYSTEM SERVICE. 


MACRO CHECK SS 
BSBW STSCRECK_SS 
PEND CHECK. SS 


goo 
3; CHECK_RMS BRANCHES TO A SUBROUTINE THAT CHECKS THE COMPLETION CODE IN RO 


T 


J 13 


; FOLLOWING A CALL TO RMS. 


-MACRO 
BSBW 
-ENDM 


CHECK 10 
;_SPECIFIE 


+ 
> 


SCASEB, SCASEW 
RESPECTIVELY 
FOR EACH MACR 


SB BRANCHES TO A SUBROUTINE THAT CHECKS THE STATUS CODE 
D 1/0 STATUS BLOCK FOLLOWING A CALL TO THE Q10 SYSTEM S$ 


“FoLtOueD BY THE CASE DISPLACEMENT BLE E. THE PARAME 


CHECK RMS 
TSTSCRECK_RMS 
CHECK_RMS~ 


CHECK_10SB ADDRESS 
ADDRESS,R 

TSTStneER 10S8 

CHECK 


SCASEL_GENERATE A CASEB, CASEW hag = EE eee cee 


SELECTOR: be. SELECTOR OPERAND 
BASE THE BASE OP 
(THE LIMIT OPERAND IS CAL pod ay AY ps THE # OF ENTRIES IN DISPL) 


= THE CASE DISPLACEMENT 


DISPL 
NOTE THAT THE MACRO DEFINITIONS PLACE BASE AFTER SELECTOR AND DISPL 
SO THAT A ne CAN BE OMITTED WHEN KEYWORDS ARE NOT USED IN THE MACRO 


_INVOCAT I 


+ 
+ 


SCASE IS A LEVEL 2 MACRO USED BY SCASEB 


SCASEB, SELECTOR ,,DISPL ,BASE=#0 
ieee ee ree ene 


SCASEW, SELECTOR, DISPL,BASE=#0 
SELECTOR, <DISPL>,BASE,.TYPE=W 


SCASEL SELECTOR ,DISPL.BASE=#0 
ice ee ceeer ae deni! Wet 


SCASEW, AND SCASEL. 


SCASE GENERATES A CASECB/W/L INSTRUCTION. eo LOWED BY THE CASE 
TABL E. THE PARAMETERS F CRO ARE: 


tien NT T 


AND DATATYPE OF an 
ERAND 


= OPER 
SELECTOR= M3 SELECTOR OP 


OPERAND 
CTHE LIMIT OP ERAND IS cA re eree 


F 

Ll 

NOTE THAT THE MACRO DEFINITION PLACES SE 
THAT THE LATTER CAN BE OMITT 


AND TYPE SO 


OM THE # OF ENTRIES IN DISPL) 


T 
ECTOR AND DISPL AHEAD OF BASE 
D WHEN KEYWORDS ARE NOT USED 


THE CASE DISPLACEMENT 


IN THE MACRO INVOCATION. 


ery 7 
$$¢ 


jdt SCOUN 
R 


"IF 
ER 


rg SELECTOR, DISPL ,.BASE=#0, TYPE=B, ? TABLE 
oy > 


EQ,$$COUNT 
3 eeeee CASE DISPLACEMENT LIST IS NULL *eeee ; 


T 


EXIT 
SEND 
sank Caee Sr ype SELECTOR, BASE ,#<$$COUNT-1> 
cn P,<DISPL> 
“WORD EP-TABLE 
ENDR 


[ENDM = SCASE 


L 13 
«SBTTL SYMBOL DEFINITION MACROS 


Y OTS/D 
. vy PUR POSE: THEY ARE ALSO USED 


EFNDEF DEFINES THE USE OF EVENT FLAG 
NOTE: MANY OF TH 
THE APPROPRIATE Q10 REQUEST 


$8 
FLAG VALUES SERVE PrD Dd 


<- 


HE 
> A FUNCTION/INDEX CODES THAT ARE MAPP 


; SYSTEM SERVICE CALLS. 


-MACRO thay 34 GBL 


SDEFINI EFN,GBL 
SEQULST EFN’K ,GBL, : EFN CAND FUNCTION/INDEX CODE) FOR 
<RERD-AAIL .O35—_ : READ ASSOCIATED MAILBOX 

<CONN“INIT,1>= > NSP CONNECT INITIATE 
<CONN~ACCE, 1>= : NSP CONNECT ACCEPT (CONFIRM) 
<CONNREJE ¢>- : NSP CONNECT REJECT 
<DISC"SYNC, 3>= > NSP SYNCHRONOUS DISCONNECT 
<DISC"ABRT .4>= > NSP DISCONNECT ABORT 
<XMIT “DATA, 5>= > NSP TRANSMIT DATA MESSAGE 
<XMITTINTE .6>= : NSP TRANSMIT INTERRUPT MESSAGE 
<RECV"DATA,7>= : NSP RECEIVE DATA MESSAGE 
<TIMER,8>~— > TIMER A 
<SIGNAL,9>= : SIGNALLING AN EVENT FROM AN AST 


> 
SOEFEND EFN,GBL 
-ENDM = =EFNDEF 


p++ 
: FLGDEF DEFINES OFFSETS AND MASKS FOR COMMAND PARSE STATUS FLAGS. 


MACRO FLGDEF GBL 
SDEF INI tee wr 
VIEL 


> 


ANING: 

4 FOR ERROR, .f>= ? PARSE ERROR DETECTED 
<MULTILINE,.M>= : COMMAND LINE IS CONTINUED 
<PARAMETER, .M>= : COMMAND BARAMETER F OUND 

. <DELIMITER, .M>=- : COMMAND DELIMITER FOUND 

SDEFEND FLG,GBL , 

.ENDM = FLGDEF 

p++ 
: CMDDEF DEFINES COMMAND LANGUAGE SYMBOLS. 
.MACRO CMDDEF GBL 
$DEFINI CMD,GBL 
3 DEFINE COMMAND PARAMETER VALUES (TST$GB_TEST). 
SEQULST VAL_K_,GBL, ; TEST FUNCTION CODE 
<TEST-CONN oe : ECT TEST 
<1 EST“DATA, 1>= : DATA TEST 
<TESt ~DISC 92 : DISCONNECT TEST 
<TEST INTE, 3>= : INTERRUPT TEST 
<TEST“MISC,4>= : MISCELLANEOUS TEST 


SEQULST VAL K_ GBI», .<= 
<PRIN_NO,0>= 


; DEFINE /CNOJPRINT QUALIFIER VALUES (TST$GB_PRINT). 
; FUNCTION MODIFIER CODE: 
NOPRINT 


M 
<PRIN_YES,128>- ; PRINT (BIT7 = ” 


; DEFINE /TYPE QUALIFIER VALUES (TSTS$GB_TYPE). 


SEQULST VAL OK _,GBL. : TEST SUBFUNCTION CODE: 
E-REJ E*6S<. : CONNECT REJECT 

SIVPE-ARCE 132 : CONNECT ACCEPT (CONFIRM) 
<TYPE-SINK,0>= + SINK (NO CHECKING) 
<TYPE~SEQU, 1>= : SEQUENCE CHECK 
<TYPE-PATT.2>= : SEQUENCE AND PATTERN CHECK 
<TYPE-ECHO, 3>= : ECHO MESSAGE 
<TYPE-SYNC,0>= + SYNCHRONOUS DISCONNECT 
<TYPE-ABRT, 1>= : DISCONNECT ABORT 

: <TYPE NAME ,0>= : INVALID NODENAME 


DEFINE /CNOJRETURN QUALIFIER VALUES (TSTS$GB_RETURN). 


SEQULST vat et Ura Ose : SUBFUNCTION i CODE : 
: NeTGans USERDATA 

<RETU “STAN, 2>- ; N STANDARD USERDATA 

<RETU TRECE ,4>= 3 RETURN RECEIVED USERDATA 


DEFINE /CNOJFLOW QUALIFIER VALUES (TSTSGB_FLOW). 


SEQULST VAL_K_,GBL...<- : FLOW ys VALUE : 
<FLOW_NO,0>- : NOFLOW CONTROL 

<FLOW_ SEGM,1>= 3 SEGMENT FLOW CONTROL 

<FLOW MESS, ;2>- : MESSAGE FLOW CONTROL 


DEFINE /CNOJSTATISTICS QUALIFIER VALUES (TSTS$GB_STAT). 


> 


SEQULST VAL_K_,GBL..,<- ; STATISTICS VALUE: 
<STAT-NO,0>- + NOSTATISTICS 
<STAT~YES, 1>= : STATISTICS 
DEFINE /CNOJBACK QUALIFIER VALUES (TST$GB_BACK). 
DEFINE /CNOJDISPLAY QUALIFIER VALUES (TST$SGB DISPLAY). 
DEFINE /CNOJNAK QUALIFIER VALUES (TST$GB_NAKY. 
EACH OF THESE ALSO TAKE EXPLICIT NUMERIC VALUES. 
SEQULST VAL K_ «GBL., <= : 
<BATK"NO, ; NO BACK PRESSURE CONTROL 
<D1SP° NO : NO DISPLAY 
R0.6>— : NO NAK CONTROL 


DEFINE DEFAULT QUALIFIER VALUES. 


SEQULST DFT K_/GBL, . ; DEFAULT QUALIFIER VALUE FOR 
k’ BACK ACK_NO>- : BACK PRESSURE CONTROL 

<PISPLAYS “Vat K_DISP_NO>-'; DISPLAY SIZE IN BYTES 
<FLOW,VAL_K FLOW MESS>- ; FLOW CONTROL 
< AL_R_RAK NODS 3 NAK CONTROL 
<PRINT,VAL_K_PRI - ; PRINT 
<RETURN_CO>VAL_K_RETU_NO>= ; RETURN USERDATA (CONNECT) 
<RE TURN DI.VAL— ‘ TRETU-NO>= ; RETURN USERDATA (DISCONNECT) 
<RQUEUE DA, 1>= : OTR QUEUE (DATA) 
<RQUEUE "IN. 1>= t DTR QUEUE (INTERRUPT) 


eV" eh 


<-_— 


Wuns 


> 
SEQULST DF 


> 


> QUALIFIER VALUES. 

. SEQULST MAX_K_,GBL,.,<= 
<BACK; (38h: 
<DISPLAY, 38>- 


<SIZE~IN.16>=- 
<SPEEB 1600000>- 
<SQ QUEUE _DA, 8>- 
<SQUEUVE_IN,8>- 
<TIME_DA, 150000 
<TIME_IN,360000>- 


> 
SDEFEND CMD,GBL 
-ENDM CMDDEF 


; IN TSTSGL_VALI 


-MACRO VLDDEF GBL 
SDEFINI VLO,GBL 

<BACK. ,M>=- 
<DISPLAY, ,M>=- 
<F >= 


NODENAME , ,M>= 
<NODISPLAY. M>= 
<NOF LOW, Pn - 


<NONAK, 
<NOPRINT  M>= 
<NORETURN. .M>= 
<NOSTAT, ,M>= 


<RQUEUE, ,M>=- 
<SECONDS, ,M>= 


~IN, 
<TYPE- “CO, var “k TYPE _ACCES= ; 
<TYPE-DA, vA <TYPE-SINK>= ; 
<TYPE_ “D1.V K-TYPE-ABRT>= ; 
<TYPE- “IN, VAC K-TYPE-SINK>= ; 
<TYPE_MI ,VAL_K_TYPE =NAME>= ; 


M 

M 

D 

L 

D 

D 

STAT S 

; TIME E 

TIME E 
TY C T 
TY D 
TY D NECT) 
TY I UPT) 
TY M LANEOUS) 


; DEFINE MAXIMUM QUALIFIER VALUES FOR THOSE QUALIFIERS THAT ACCEPT NUMERIC 


MAXIMUM QUALIFIER VALUE FOR: 
BACK PRESSURE CONTROL 
hog SIZE IN BYTES 


CONTROL 
DTR QUEUE (DATA) 
DTR QUEUE (INTERRUPT) 
MESSAGE SIZE IN BYTES (DATA 
MESSAGE SIZE IN BYTES (IN TERRUPT) 
LINE SPEED IN BAUD 
DTS QUEUE (DATA) 
DTS QUEUE (INTERRUPT) 
TIME IN SECONDS (DATA) 
TIME IN SECONDS (INTERRUPT) 


i++ 
3; VLDDEF DEFINE .o AND MASKS FOR VALID (PERMITTED) QUALIFIER FLAGS 


oes oF SER s 
DISPLAY 

LOW 
HOURS 
MINUTES 
NAK 
NOBACK 
NODENAME 
NODISPLAY 
NOF LOW 
NOPRINT 
NORE TURN 
NOSTATISTICS 
PRINT 
RETU 


RN 
DTR QUEUE 
SECONDS 


<- 


<TYPE ° ,M>- 


SDEFEND VLD 


> 


L 


VLDOEF 


END 
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